原标题：CATIA宏/VBA/二次开发——3 几何特征的批量创建与重命名

有了前面两篇文章的知识储备，我们就不必依赖“录制得到代码”的方法了。接下来，我们通过下面的实例小试牛刀，看一下代码一行行从无到有敲出来是怎样的体验。

提出需求：

一个Part的某个几何图形集下有若干个点，我们要以每个点为中心，做一个半径为r的球面。

权衡利弊：

如果你懂CATIA的知识工程，上面的内容可谓小菜一碟。但如果你不懂知识工程，或者因为公司抠门不买知识工程的许可证，那么英雄无用武之地的你，不妨试试VBA宏代码的方法！

思路分析：

第一篇文章入门时，我们就写了一段For-Next循环的代码，并且大概有这么个印象就是：一些重复且有规律的工作也许可以用代码来完成。

而拿上面的实例来说，我们大胆猜测，中间某一段代码可能是这样：

For i = 1 to 6

创建圆(圆心=几何图形集中第i个点，半径=r)

Next

从0到1：

通过研究已经录过的代码，或者看Automation手册

我们可以通过下面的代码从CATIA(Application)开始，一级一级获取到需要的对象：

‘获取CATIA当前打开的文档

Dim Doc

Set Doc=CATIA.ActiveDocum